home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / database / postgres / appgen-0.2-a / appgen-0 / AppGEN / apps / sample.app < prev   
Encoding:
Text File  |  1996-07-10  |  2.8 KB  |  110 lines
  1. #######################################################
  2. # Sample Application Configuration File               #
  3. #######################################################
  4.  
  5. INCLUDE "global.app"
  6.  
  7. [MENU pam]
  8.     SET title AS "Property Appraisal Module Main Menu"
  9.     DEFINE MENU {
  10.         "Site Details" : MODULE "sites"
  11.         "Block Details" : MODULE "blocks"
  12.         "Reports Menu" : MENU "reports"
  13.         }
  14.     SHOWLN "Maintenance Functions:"
  15.     DEFINE MENU {
  16.         "4. Update Element Codes" : MODULE "elements"
  17.         }
  18.  
  19. [MENU reports]
  20.     SET title AS "Reports Menu"
  21.     DEFINE MENU {
  22.         "Block List" : MODULE "block-list"
  23.         "Mereworth Report" : MODULE "mereworth"
  24.         }
  25.  
  26. [MODULE sites]
  27.     SET default_process AS "clear"
  28.     DATA results
  29.  [FORM site]
  30.     SET title AS "Site Details"
  31.     DEFINE FORM {
  32.         site_code : 7 : "Site Code:" : TEXT
  33.         description : 45 : "Description:" : TEXT
  34.         } IN COLUMN
  35.     DEFINE TOOLBAR {
  36.         "ADD" : ALL : PROCESS "add"
  37.         "FIND" : ALL : PROCESS "find"
  38.         "UPDATE" : DATA : PROCESS "update"
  39.         "DELETE" : DATA : PROCESS "delete"
  40.         "CLEAR" : ALL : PROCESS "clear"
  41.         "EXIT" : ALL : MENU "pam"
  42.         }
  43.  [FORM sure]
  44.     SET title AS "Are you sure you want to delete ?"
  45.     DEFINE FORM {
  46.         site_code : 7 : "Site Code:"
  47.         } IN COLUMN
  48.     DEFINE TOOLBAR {
  49.         "YES" : ALL : PROCESS "yes"
  50.         "NO" : ALL : PROCESS "clear"
  51.         }
  52.  
  53.  [OUTPUT find_list]
  54.     SET title AS "Search Results"
  55.     SET type AS screen
  56.     DEFINE OUTPUT {
  57.         site_code : LEFT : "Site Code" 
  58.         description : LEFT : "Description"
  59.         } LINK TO PROCESS find_display WITH VALUE site_code
  60.     
  61.  [PROCESS add]
  62.     DATA results
  63.     INT no_rows
  64.     SQL "SELECT * FROM sites WHERE site_code = $input.site_code;" TO results
  65.     ROWS results TO no_rows
  66.     IF no_rows > 0 THEN DISPLAY site WITH input ERROR "Duplicate Record" ON site_code
  67.     SQL "INSERT INTO sites (site_code, name) VALUES ($input.site_code,$input.description);" TO results
  68.     DISPLAY site
  69.  
  70.  [PROCESS find]
  71.     DATA results
  72.     INT and
  73.     STRING query
  74.     MOVE 0 TO and
  75.     MOVE "SELECT site_code, name FROM sites WHERE " TO query
  76.     IF NOT BLANK(input.site_code) THEN BEGIN
  77.         IF and = 1 THEN APPEND query " AND "
  78.         APPEND query "site_code like '%" input.site_code "%' "
  79.         MOVE 1 TO and
  80.         END
  81.     IF NOT BLANK(input.description) THEN BEGIN
  82.         IF and = 1 THEN APPEND query " AND "
  83.         APPEND query "name like '%" input.description "%' "
  84.         MOVE 1 TO and
  85.         END
  86.     APPEND query "ORDER BY site_code;"
  87.     SQL query TO results
  88.     OUTPUT find_list WITH results
  89.  
  90.  [PROCESS find_display]
  91.     DATA results
  92.     SQL "SELECT * FROM sites WHERE site_code=$input.site_code;" TO results
  93.     DISPLAY site WITH results
  94.  
  95.  [PROCESS update]
  96.     DATA results
  97.     SQL "UPDATE sites SET site_code=$input.site_code, name=$input.description WHERE site_code=$input.site_code;" TO results
  98.     DISPLAY site
  99.  
  100.  [PROCESS clear]
  101.     DISPLAY site
  102.  
  103.  [PROCESS delete]
  104.     DISPLAY sure WITH input
  105.  
  106.  [PROCESS yes]
  107.     SQL "DELETE FROM sites WHERE site_code=$input.site_code;" 
  108.     DISPLAY site
  109.     
  110.